home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / Information Management / Wingz / SDScript / Script04 (.txt) < prev    next >
Encoding:
Wingz Script  |  1989-06-07  |  4.3 KB  |  170 lines  |  [WZSC/WNGZ]
  1. WNGZWZSC01b1
  2. Demo04
  3. UseFonts
  4. Times 24 pt
  5. Times
  6. Times 18 pt
  7. Times
  8. Times 14 pt
  9. Times
  10. Times 12 pt
  11. Times
  12. Times 10 pt
  13. Times
  14. Times 9 pt
  15. Times
  16. BIoUs
  17. Helvetica 24 pt
  18.     Helvetica
  19. Helvetica 18 pt
  20.     Helvetica
  21. Helvetica 14 pt
  22.     Helvetica
  23. Helvetica 12 pt
  24.     Helvetica
  25. Helvetica 10 pt
  26.     Helvetica
  27. Helvetica 9 pt
  28.     Helvetica
  29. BIoUs
  30. Courier 24 pt
  31. Courier
  32. Courier 18 pt
  33. Courier
  34. Courier 14 pt
  35. Courier
  36. Courier 12 pt
  37. Courier
  38. Courier 10 pt
  39. Courier
  40. Courier 9 pt
  41. Courier
  42. BIoUs
  43. ColorFonts
  44. SDOpen
  45. DoSound
  46. Segway
  47. ColorScreencall sd:SDOpen("Demo04",1)
  48. call sd:DoSound("UseFonts")
  49. wait for (sd:Segway*1.5) seconds
  50. hide fields
  51. repaint off
  52. select range a1..g26
  53. column width 2.5 inches
  54. row height 24 point
  55. unselect
  56. repaint on
  57. repaint window
  58. put "Times 24 pt" into a1
  59. select range a1
  60. text font "Times"
  61. text size 24
  62. put "Times 18 pt" into a2
  63. select range a2
  64. text font "Times"
  65. text size 18
  66. put "Times 14 pt" into a3
  67. select range a3
  68. text font "Times"
  69. text size 14
  70. put "Times 12 pt" into a4
  71. select range a4
  72. text font "Times"
  73. text size 12
  74. put "Times 10 pt" into a5
  75. select range a5
  76. text font "Times"
  77. text size 10
  78. put "Times 9 pt" into a6
  79. select range a6
  80. text font "Times"
  81. text size 9
  82. select range a1..a6
  83. select range a7..a12
  84. paste
  85. text style "BIoUs"
  86. put "Helvetica 24 pt" into b1
  87. select range b1
  88. text font "Helvetica"
  89. text size 24
  90. put "Helvetica 18 pt" into b2
  91. select range b2
  92. text font "Helvetica"
  93. text size 18
  94. put "Helvetica 14 pt" into b3
  95. select range b3
  96. text font "Helvetica"
  97. text size 14
  98. put "Helvetica 12 pt" into b4
  99. select range b4
  100. text font "Helvetica"
  101. text size 12
  102. put "Helvetica 10 pt" into b5
  103. select range b5
  104. text font "Helvetica"
  105. text size 10
  106. put "Helvetica 9 pt" into b6
  107. select range b6
  108. text font "Helvetica"
  109. text size 9
  110. select range b1..b6
  111. select range b7..b12
  112. paste
  113. text style "BIoUs"
  114. put "Courier 24 pt" into c1
  115. select range c1
  116. text font "Courier"
  117. text size 24
  118. put "Courier 18 pt" into c2
  119. select range c2
  120. text font "Courier"
  121. text size 18
  122. put "Courier 14 pt" into c3
  123. select range c3
  124. text font "Courier"
  125. text size 14
  126. put "Courier 12 pt" into c4
  127. select range c4
  128. text font "Courier"
  129. text size 12
  130. put "Courier 10 pt" into c5
  131. select range c5
  132. text font "Courier"
  133. text size 10
  134. put "Courier 9 pt" into c6
  135. select range c6
  136. text font "Courier"
  137. text size 9
  138. select range c1..c6
  139. select range c7..c12
  140. paste
  141. text style "BIoUs"
  142. unselect
  143. if sd:ColorScreen = 1
  144.     show notes
  145.     call sd:DoSound("ColorFonts")
  146.     wait for (sd:Segway*1.0) seconds
  147.     hide notes
  148.     select range a1..a6
  149.     text color red()
  150.     fill bg rgb(255,255,200)
  151.     select range a7..a12
  152.     text color blue()
  153.     fill bg rgb(200,255,200)
  154.     select range b1..b6
  155.     text color magenta()
  156.     fill bg rgb(200,255,255)
  157.     select range b7..b12
  158.     text color rgb(50,50,150)
  159.     fill bg rgb(255,200,200)
  160.     select range c1..c6
  161.     text color rgb(200,100,100)
  162.     fill bg rgb(200,200,200)
  163.     select range c7..c12
  164.     text color rgb(50,200,50)
  165.     fill bg rgb(255,200,255)
  166. end if
  167. unselect
  168. wait for (sd:Segway*1.5) seconds
  169. close now
  170.